home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0059_Blink Bit Demo.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  2KB  |  35 lines
  1. {*************************************************************}
  2. PROGRAM BlinkBitDemo;           { Aug 31/93, Greg Estabrooks. }
  3. USES CRT;                       { Clrscr,TextAttr.            }
  4. VAR
  5.    Loop1, Loop2, TextA : BYTE;
  6.  
  7. PROCEDURE SetBlinkBit( OffOn :BOOLEAN ); ASSEMBLER;
  8.                        { Routine to turn the blink bit on/off.}
  9. ASM
  10.   Push AX                       { Save AX.                    }
  11.   Mov AX,$1003                  { Video routine to toggle bit.}
  12.   Mov BL,OffOn                  { Move OffOn value in BL.     }
  13.   Int $10                       { Call video Interrupt.       }
  14.   Pop AX                        { Restore AX.                 }
  15. END;{SetBlinkBit}
  16.  
  17. BEGIN
  18.   ClrScr;                       { Clear up screen clutter.    }
  19.   TextA := 0;                   { Initiate color number.      }
  20.   FOR Loop1 := 0 TO 15 DO       { Now draw color chart.       }
  21.    BEGIN
  22.     FOR Loop2 := 0 TO 15 DO
  23.      BEGIN
  24.        TextAttr := TextA;       { Set new color.              }
  25.        Write(TextA:4);          { Write new color number.     }
  26.        Inc(TextA);              { Move to next color.         }
  27.      END;
  28.      Writeln;                   { Move to the next line.      }
  29.    END;
  30.    Readln;                      { Pause for user.             }
  31.    SetBlinkBit(FALSE);          { Turn off blink bit.         }
  32.    Readln;                      { Pause for user.             }
  33.    SetBlinkBit(TRUE);           { Turn blinkbit back on.      }
  34. END.{BlinkBitDemo}
  35. {*************************************************************}